home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol030 / monitor.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  1.4 KB  |  36 lines
  1. 10 CLS:PRINT
  2. 15 PRINT"************************* DISPLAY SELECTION MENU ******************************":PRINT:PRINT
  3. 20 PRINT TAB(20);"1 - Color Adapter 40 col"
  4. 30 PRINT:PRINT TAB(20);"2 - Color Adapter 80 col"
  5. 40 PRINT:PRINT TAB(20);"3 - IBM Monochrome Display"
  6. 50 PRINT:PRINT:INPUT "Select Option: ";K$
  7. 60 K = VAL(K$)
  8. 70 IF K>3 OR K<1 THEN BEEP:GOTO 10
  9. 80 ON K GOTO 210,100,320
  10. 100 CLS:PRINT"************* NOW SWITCHING TO COLOR MONITOR - 80 COLUMNS **********************"
  11. 120 FOR I=1 TO 1000:NEXT I
  12. 130 KEY OFF:CLS
  13. 140 WIDTH 80: DEF SEG=0: A=PEEK(&H410): POKE &H410,(A AND &HCF) OR &H20
  14. 160 WIDTH 80:SCREEN 1: SCREEN 0: LOCATE ,,1,6,7
  15. 165 WIDTH 80
  16. 170 KEY ON
  17. 180 CLS:PRINT:PRINT"THIS MONITOR IS NOW 'COLOR' AND 80 COLUMNS WIDE"
  18. 200 END
  19. 210 CLS:PRINT"***** NOW SWITCHING TO COLOR MONITOR - 40 COLUMNS *******"
  20. 240 FOR I=1 TO 1000:NEXT I
  21. 250 KEY OFF:CLS
  22. 260 WIDTH 80:DEF SEG=0: A=PEEK(&H410): POKE &H410,(A AND &HCF) OR &H20
  23. 270 WIDTH 40: SCREEN 1: SCREEN 0: LOCATE ,,1,6,7
  24. 280 KEY ON
  25. 290 CLS:PRINT:PRINT"THIS MONITOR IS NOW 'COLOR' & 40 COLUMNS WIDE"
  26. 310 END
  27. 320 CLS:PRINT"NOW SWITCHING TO IBM DISPLAY ....."
  28. 350 FOR I=1 TO 1000:NEXT I
  29. 360 KEY OFF:CLS
  30. 370 WIDTH 40: DEF SEG=0: A=PEEK(&H410): POKE &H410,A OR &H30
  31. 380 WIDTH 80: LOCATE ,,1,12,13
  32. 390 KEY ON
  33. 400 CLS:PRINT:PRINT"***** The Monitor is now 'Monochrome' & 80 Columns Wide"
  34. 500 END
  35. WIDTH 80: LOCATE ,,1,12,13
  36. 390